object FormPresupuestosEdit: TFormPresupuestosEdit
  Left = 505
  Top = 238
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsSingle
  Caption = 'PRESUPUESTO'
  ClientHeight = 598
  ClientWidth = 747
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel
    Left = 16
    Top = 132
    Width = 93
    Height = 13
    Caption = 'Fecha Prevista P.F.'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 747
    Height = 52
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      747
      52)
    object Label1: TLabel
      Left = 11
      Top = 8
      Width = 59
      Height = 13
      Caption = 'Presupuesto'
    end
    object lInfo: TLabel
      Left = 136
      Top = 1
      Width = 20
      Height = 13
      Caption = 'lInfo'
    end
    object Label3: TLabel
      Left = 11
      Top = 31
      Width = 36
      Height = 13
      Caption = 'Estado:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object BtnCancelar: TSpeedButton
      Left = 584
      Top = 0
      Width = 81
      Height = 52
      Anchors = [akTop, akRight]
      Caption = 'Cancelar'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      OnClick = BtnCancelarClick
    end
    object BtnAceptar: TSpeedButton
      Left = 665
      Top = 0
      Width = 81
      Height = 52
      Anchors = [akTop, akRight]
      Caption = 'Aceptar'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
      OnClick = BtnAceptarClick
    end
    object lBloqueo: TLabel
      Left = 180
      Top = 32
      Width = 350
      Height = 16
      Caption = 'No se pueden modificar los datos del presupuesto'
      Color = clHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlightText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Visible = False
    end
    object eNumPresup: TDBEdit
      Left = 72
      Top = 3
      Width = 59
      Height = 21
      TabStop = False
      Color = clInfoBk
      DataField = 'ID_PRESUP'
      DataSource = dsPresupuestos
      ReadOnly = True
      TabOrder = 0
    end
    object cbPresupEstado: TDBLookupComboBox
      Left = 72
      Top = 27
      Width = 106
      Height = 21
      DataField = 'ESTADO'
      DataSource = dsPresupuestos
      KeyField = 'ID_PRESUP_ESTADO'
      ListField = 'DESCRIPCION_ESTADO'
      ListSource = dsEstados
      TabOrder = 1
      TabStop = False
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 52
    Width = 747
    Height = 546
    ActivePage = tsFabricacion
    Align = alClient
    RaggedRight = True
    TabOrder = 1
    OnChange = PageControlChange
    OnDrawTab = tsTantoslDrawTab
    object tsDatosGenerales: TTabSheet
      Caption = 'Datos Generales Presupuesto'
      object lDescripcion: TLabel
        Left = 51
        Top = 17
        Width = 74
        Height = 13
        Caption = 'Concepto Ppto.'
      end
      object Bevel1: TBevel
        Left = 77
        Top = 89
        Width = 577
        Height = 9
        Shape = bsBottomLine
      end
      object Label13: TLabel
        Left = 51
        Top = 41
        Width = 56
        Height = 13
        Caption = 'Descripcion'
      end
      object Label29: TLabel
        Left = 51
        Top = 112
        Width = 67
        Height = 13
        Caption = 'Tipo Acabado'
      end
      object eConcepto: TDBEdit
        Left = 131
        Top = 13
        Width = 493
        Height = 21
        DataField = 'CONCEPTO'
        DataSource = dsPresupuestos
        TabOrder = 0
      end
      object eDescripcion: TDBMemo
        Left = 131
        Top = 39
        Width = 493
        Height = 47
        DataField = 'DESCRIPCION'
        DataSource = dsPresupuestos
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object gbCliente: TGroupBox
        Left = 56
        Top = 152
        Width = 619
        Height = 300
        Caption = ' Datos del Cliente '
        TabOrder = 3
        DesignSize = (
          619
          300)
        object Label4: TLabel
          Left = 220
          Top = 222
          Width = 29
          Height = 13
          Caption = 'Env'#237'o'
          Visible = False
        end
        object Label5: TLabel
          Left = 24
          Top = 254
          Width = 46
          Height = 13
          Caption = 'Contacto:'
        end
        object Label6: TLabel
          Left = 196
          Top = 283
          Width = 92
          Height = 13
          Caption = 'Contacto Consultas'
          Visible = False
        end
        object BtnBuscarCliente: TSpeedButton
          Left = 187
          Top = 41
          Width = 81
          Height = 26
          Caption = 'Buscar'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = BtnBuscarClienteClick
        end
        object Label24: TLabel
          Left = 24
          Top = 224
          Width = 59
          Height = 13
          Anchors = [akTop, akRight]
          Caption = 'N.F.F./C.I.F.'
          FocusControl = dbeCIF
        end
        object Label25: TLabel
          Left = 24
          Top = 78
          Width = 63
          Height = 13
          Caption = 'Raz'#243'n Social'
          FocusControl = eNombre_Cliente
        end
        object Label38: TLabel
          Left = 24
          Top = 107
          Width = 45
          Height = 13
          Caption = 'Direcci'#243'n'
          FocusControl = DBEdit4
        end
        object Label40: TLabel
          Left = 24
          Top = 136
          Width = 54
          Height = 13
          Caption = 'Cod. Postal'
          FocusControl = DBEdit5
        end
        object Label43: TLabel
          Left = 186
          Top = 136
          Width = 47
          Height = 13
          Caption = 'Poblaci'#243'n'
          FocusControl = DBEdit6
        end
        object Label44: TLabel
          Left = 186
          Top = 165
          Width = 44
          Height = 13
          Caption = 'Provincia'
          FocusControl = DBEdit7
        end
        object Label45: TLabel
          Left = 24
          Top = 194
          Width = 42
          Height = 13
          Caption = 'Tel'#233'fono'
          FocusControl = DBEdit8
        end
        object Label46: TLabel
          Left = 208
          Top = 194
          Width = 17
          Height = 13
          Caption = 'Fax'
          FocusControl = DBEdit9
        end
        object Label47: TLabel
          Left = 336
          Top = 194
          Width = 27
          Height = 13
          Caption = 'e-mail'
          FocusControl = DBEdit11
        end
        object Label19: TLabel
          Left = 24
          Top = 49
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object DBText1: TDBText
          Left = 115
          Top = 47
          Width = 65
          Height = 17
          Color = clBtnFace
          DataField = 'ID_CLIENTE'
          DataSource = dsClientes
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHighlight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object cbContactoConsultas: TDBLookupComboBox
          Left = 286
          Top = 283
          Width = 321
          Height = 21
          DataField = 'ID_CLIENTE_CONSULTAS'
          DataSource = dsPresupuestos
          KeyField = 'ID_CONTACTO'
          ListField = 'NOMBRE'
          ListSource = dsCli_Ctos2
          TabOrder = 9
          Visible = False
        end
        object dbeCIF: TDBEdit
          Left = 115
          Top = 221
          Width = 85
          Height = 19
          Anchors = [akTop, akRight]
          Ctl3D = False
          DataField = 'CIF'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 8
        end
        object eNombre_Cliente: TDBEdit
          Left = 115
          Top = 75
          Width = 472
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          Ctl3D = False
          DataField = 'NOMBRE'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 0
        end
        object DBEdit4: TDBEdit
          Left = 115
          Top = 104
          Width = 472
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          Ctl3D = False
          DataField = 'DIRECCION'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 1
        end
        object DBEdit5: TDBEdit
          Left = 115
          Top = 133
          Width = 46
          Height = 19
          Ctl3D = False
          DataField = 'CODPOSTAL'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 2
        end
        object DBEdit6: TDBEdit
          Left = 244
          Top = 133
          Width = 343
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          Ctl3D = False
          DataField = 'POBLACION'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 3
        end
        object DBEdit7: TDBEdit
          Left = 244
          Top = 162
          Width = 343
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          Ctl3D = False
          DataField = 'PROVINCIA'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 4
        end
        object DBEdit8: TDBEdit
          Left = 115
          Top = 191
          Width = 70
          Height = 19
          Ctl3D = False
          DataField = 'TELEFONO'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 5
        end
        object DBEdit9: TDBEdit
          Left = 244
          Top = 191
          Width = 70
          Height = 19
          Ctl3D = False
          DataField = 'fax'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 6
        end
        object DBEdit11: TDBEdit
          Left = 372
          Top = 191
          Width = 214
          Height = 19
          Anchors = [akLeft, akTop, akRight]
          Ctl3D = False
          DataField = 'EMAIL'
          DataSource = dsClientes
          ParentCtl3D = False
          TabOrder = 7
        end
        object pNuevoCliente: TPanel
          Left = 312
          Top = 13
          Width = 297
          Height = 57
          TabOrder = 10
          Visible = False
          object Label48: TLabel
            Left = 72
            Top = 8
            Width = 3
            Height = 13
          end
          object BtnNuevoCliente: TSpeedButton
            Left = 200
            Top = 0
            Width = 89
            Height = 57
            Caption = 'Crear#13nuev#13o Cliente'
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Memo1: TMemo
            Left = 1
            Top = 1
            Width = 196
            Height = 55
            Align = alLeft
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = clBtnFace
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Lines.Strings = (
              'Estas modificando un cliente existente.'
              'Pulsa NUEVO para crear un cliente '
              'nuevo a partir de los cambios hechos, '
              'sino se modificar'#225' el cliente existente.')
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
          end
        end
        object cbCli_Cto: TComboBox
          Left = 116
          Top = 248
          Width = 469
          Height = 21
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 11
          OnEnter = cbCli_CtoEnter
        end
      end
      object cbTipos_Acabado: TDBLookupComboBox
        Left = 131
        Top = 108
        Width = 187
        Height = 19
        Ctl3D = False
        DataField = 'ID_TIPO_ACABADO'
        DataSource = dsPresupuestos
        KeyField = 'ID_TIPO_ACABADO'
        ListField = 'DESCRIPCION'
        ListSource = md.dsTipos_Acabado
        ParentCtl3D = False
        TabOrder = 2
      end
    end
    object tsDatosTantos: TTabSheet
      Caption = 'Papeles y Tintas'
      ImageIndex = 1
      OnHide = tsDatosTantosHide
      OnShow = tsDatosTantosShow
      DesignSize = (
        739
        518)
      object tbTantos: TTabControl
        Left = 0
        Top = 74
        Width = 732
        Height = 280
        TabOrder = 3
        Tabs.Strings = (
          'Tanto 1'
          'Tanto 2'
          'Tanto 3')
        TabIndex = 0
        OnChange = tbTantosChange
        OnChanging = tbTantosChanging
        OnDrawTab = tsTantoslDrawTab
        object panelTabSet: TPanel
          Left = 4
          Top = 24
          Width = 724
          Height = 252
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          OnExit = panelTabSetExit
          DesignSize = (
            724
            252)
          object lPapel: TLabel
            Left = 91
            Top = 17
            Width = 76
            Height = 13
            Alignment = taRightJustify
            Caption = 'Papel TANTO 1'
          end
          object BtnBuscarPapel: TSpeedButton
            Left = 612
            Top = 12
            Width = 106
            Height = 22
            Caption = 'Buscar Papel'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
              300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
              330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
              333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
              339977FF777777773377000BFB03333333337773FF733333333F333000333333
              3300333777333333337733333333333333003333333333333377333333333333
              333333333333333333FF33333333333330003333333333333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = BtnBuscarPapelClick
          end
          object lTanto: TLabel
            Left = 0
            Top = 0
            Width = 80
            Height = 35
            Alignment = taCenter
            AutoSize = False
            Caption = 'T- 1'
            Color = clHighlight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clHighlightText
            Font.Height = -32
            Font.Name = 'Arial Black'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Layout = tlCenter
          end
          object gbTintas: TGroupBox
            Left = 272
            Top = 40
            Width = 451
            Height = 210
            Anchors = [akLeft, akTop, akRight, akBottom]
            Caption = ' TINTAS a usar en TANTO 1'
            TabOrder = 2
            object pgbColores: TPanel
              Left = 2
              Top = 15
              Width = 447
              Height = 26
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 0
              object BtnCopiarColores: TSpeedButton
                Left = 320
                Top = 0
                Width = 80
                Height = 26
                Caption = 'Copiar'
                Flat = True
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
                  FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
                  FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
                  007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
                  7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
                  99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
                  99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
                  99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
                  93337FFFF7737777733300000033333333337777773333333333}
                NumGlyphs = 2
                OnClick = BtnCopiarColoresClick
              end
              object DBNavigator_Colores: TDBNavigator
                Left = 0
                Top = 0
                Width = 320
                Height = 26
                DataSource = dsPresup_tantos_colores
                VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
                Flat = True
                Hints.Strings = (
                  'First record'
                  'Prior record'
                  'Next record'
                  'Last record'
                  'Insertar color'
                  'Eliminar Color'
                  'Edit record'
                  'Guardar color'
                  'Cancelar edici'#243'n'
                  'Refresh data')
                ParentShowHint = False
                ShowHint = True
                TabOrder = 0
              end
            end
            object GridTantosColores: TXDBGrid
              Left = 2
              Top = 41
              Width = 447
              Height = 167
              Align = alClient
              DataSource = dsPresup_tantos_colores
              HeaderFont.Charset = DEFAULT_CHARSET
              HeaderFont.Color = clWindowText
              HeaderFont.Height = -11
              HeaderFont.Name = 'MS Sans Serif'
              HeaderFont.Style = []
              Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleWidthOff, dgRowResize, dgRowScroll, dgExtendedSelect, dgInternalSelect]
              TabOrder = 1
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              OnPaintColumnCell = GridTantosColoresPaintColumnCell
              Columns = <
                item
                  Expanded = False
                  FieldName = 'NUM_COLOR'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlue
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  Title.Caption = 'N'#186
                  Visible = True
                  Width = 21
                end
                item
                  Expanded = False
                  FieldName = 'ID_COLOR'
                  Title.Caption = 'Color'
                  Visible = True
                  Width = 185
                end
                item
                  CheckBoxValues = 'Frente;Dorso'
                  Expanded = False
                  FieldName = 'CARA'
                  ListOptions = [loAutoDropDown, loSelectNextValue]
                  PickList.Strings = (
                    'Frente'
                    'Dorso')
                  PickOptions = [poDropDownList, poListItemsOnly, poSelectPickText, poAcceptPickList]
                  PickText.Strings = (
                    'Frente'
                    'Dorso')
                  Title.Caption = 'Cara'
                  Visible = True
                  Width = 38
                end
                item
                  Expanded = False
                  FieldName = 'CAMBIO_PLANCHA'
                  PickList.Strings = (
                    'No'
                    'Si')
                  PickOptions = [poDropDownList, poSelectPickText, poAcceptPickList]
                  PickText.Strings = (
                    'No'
                    'Si')
                  Title.Caption = 'Cam. Pla.'
                  Visible = True
                  Width = 50
                end
                item
                  Expanded = False
                  FieldName = 'OBSERVACIONES'
                  Title.Caption = 'Observaciones'
                  Visible = True
                  Width = 120
                end>
            end
          end
          object gbElementosTantos: TGroupBox
            Left = 8
            Top = 40
            Width = 259
            Height = 210
            Caption = 'Elementos TANTO 1 '
            TabOrder = 1
            object Label16: TLabel
              Left = 11
              Top = 101
              Width = 70
              Height = 13
              Caption = 'Texto Marginal'
            end
            object Label17: TLabel
              Left = 11
              Top = 186
              Width = 67
              Height = 13
              Caption = 'Carretilla Extra'
            end
            object Label58: TLabel
              Left = 110
              Top = 38
              Width = 18
              Height = 13
              Caption = 'Alto'
            end
            object Label59: TLabel
              Left = 166
              Top = 36
              Width = 22
              Height = 13
              Caption = 'Anc.'
            end
            object Label60: TLabel
              Left = 11
              Top = 59
              Width = 70
              Height = 13
              Caption = 'Tinta UVI Roja'
            end
            object Label61: TLabel
              Left = 218
              Top = 36
              Width = 16
              Height = 13
              Caption = 'mm'
            end
            object Label62: TLabel
              Left = 11
              Top = 80
              Width = 84
              Height = 13
              Caption = 'Tinta UVI Amarilla'
            end
            object Label63: TLabel
              Left = 11
              Top = 24
              Width = 76
              Height = 13
              Caption = 'Desensibilizante'
            end
            object Label67: TLabel
              Left = 150
              Top = 124
              Width = 62
              Height = 13
              Caption = 'Plecas Extra:'
            end
            object eMarginal: TDBEdit
              Left = 109
              Top = 98
              Width = 132
              Height = 19
              Ctl3D = False
              DataField = 'MARGINAL'
              DataSource = dsPresup_tantos
              ParentCtl3D = False
              TabOrder = 5
            end
            object cbPonch_Arch: TDBCheckBox
              Left = 11
              Top = 122
              Width = 111
              Height = 17
              Alignment = taLeftJustify
              Caption = 'Ponch. Arch.'
              DataField = 'PONCH_ARCH'
              DataSource = dsPresup_tantos
              TabOrder = 6
              ValueChecked = 'Si'
              ValueUnchecked = 'No'
            end
            object cbCarrretilla_Der: TDBCheckBox
              Left = 131
              Top = 143
              Width = 111
              Height = 17
              Alignment = taLeftJustify
              Caption = 'Carretilla Derecha'
              DataField = 'CARRETILLA_DER'
              DataSource = dsPresup_tantos
              TabOrder = 9
              ValueChecked = 'Si'
              ValueUnchecked = 'No'
            end
            object cbCarretilla_Izq: TDBCheckBox
              Left = 11
              Top = 143
              Width = 111
              Height = 17
              Alignment = taLeftJustify
              Caption = 'Carretilla Izquierda'
              DataField = 'CARRETILLA_IZQ'
              DataSource = dsPresup_tantos
              TabOrder = 8
              ValueChecked = 'Si'
              ValueUnchecked = 'No'
            end
            object eCarretilla_Extra: TDBEdit
              Left = 109
              Top = 185
              Width = 132
              Height = 19
              Ctl3D = False
              DataField = 'CARRETILLA_EXTRA'
              DataSource = dsPresup_tantos
              ParentCtl3D = False
              TabOrder = 11
            end
            object cbCarretillaSaltarina: TDBCheckBox
              Left = 11
              Top = 164
              Width = 111
              Height = 17
              Alignment = taLeftJustify
              Caption = 'Carretilla Saltarina'
              DataField = 'CARRETILLA_SALTARINA'
              DataSource = dsPresup_tantos
              TabOrder = 10
              ValueChecked = 'Si'
              ValueUnchecked = 'No'
            end
            object eDesen_Alto: TDBEdit
              Left = 129
              Top = 33
              Width = 32
              Height = 19
              Ctl3D = False
              DataField = 'DESENS_ALTO'
              DataSource = dsPresup_tantos
              ParentCtl3D = False
              TabOrder = 1
            end
            object eDesen_Ancho: TDBEdit
              Left = 186
              Top = 33
              Width = 32
              Height = 19
              Ctl3D = False
              DataField = 'DESENS_ANCHO'
              DataSource = dsPresup_tantos
              ParentCtl3D = False
              TabOrder = 2
            end
            object cbUviRoja: TDBComboBox
              Left = 109
              Top = 55
              Width = 132
              Height = 21
              Style = csDropDownList
              Ctl3D = False
              DataField = 'TINTA_UVI_ROJA'
              DataSource = dsPresup_tantos
              ItemHeight = 13
              Items.Strings = (
                'No'
                'Si'
                'Si + Cambio Plancha')
              ParentCtl3D = False
              TabOrder = 3
            end
            object cbUviAmarilla: TDBComboBox
              Left = 109
              Top = 76
              Width = 132
              Height = 21
              Style = csDropDownList
              Ctl3D = False
              DataField = 'TINTA_UVI_AMARILLA'
              DataSource = dsPresup_tantos
              ItemHeight = 13
              Items.Strings = (
                'No'
                'Si'
                'Si + Cambio Plancha')
              ParentCtl3D = False
              TabOrder = 4
            end
            object cbDesensibilizante: TDBComboBox
              Left = 109
              Top = 12
              Width = 132
              Height = 21
              Style = csDropDownList
              Ctl3D = False
              DataField = 'DESENSIBILIZANTE'
              DataSource = dsPresup_tantos
              ItemHeight = 13
              Items.Strings = (
                'No'
                'Si'
                'Si + Cambio Plancha')
              ParentCtl3D = False
              TabOrder = 0
            end
            object ePlecaExtra: TDBEdit
              Left = 218
              Top = 120
              Width = 23
              Height = 19
              Ctl3D = False
              DataField = 'PLECA_EXTRA'
              DataSource = dsPresup_tantos
              ParentCtl3D = False
              TabOrder = 7
            end
          end
          object ePapel: TEdit
            Left = 175
            Top = 13
            Width = 434
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 0
          end
        end
      end
      object gbFotocomposicion: TGroupBox
        Left = 114
        Top = 368
        Width = 512
        Height = 139
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = ' Fotocomposici'#243'n'
        TabOrder = 2
        object GridFotocomposicion: TXDBGrid
          Left = 2
          Top = 41
          Width = 508
          Height = 96
          Align = alClient
          DataSource = dsPresup_Fotocomposicion
          FixedStyle = fsNice
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -11
          HeaderFont.Name = 'MS Sans Serif'
          HeaderFont.Style = []
          ScrollBars = ssNone
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'CONCEPTO'
              Title.Caption = 'Concepto'
              Visible = True
              Width = 211
            end
            item
              Expanded = False
              FieldName = 'PRECIO'
              Title.Caption = 'Precio'
              Visible = True
              Width = 50
            end
            item
              Expanded = False
              FieldName = 'COLORES'
              Title.Caption = 'Colores'
              Visible = True
              Width = 50
            end
            item
              Expanded = False
              FieldName = 'COSTE_COLOR'
              Title.Caption = 'Pr. Color'
              Visible = True
              Width = 50
            end
            item
              Expanded = False
              FieldName = 'TOTAL'
              Title.Caption = 'Total'
              Visible = True
              Width = 50
            end>
        end
        object Panel2: TPanel
          Left = 2
          Top = 15
          Width = 508
          Height = 26
          Align = alTop
          TabOrder = 0
          DesignSize = (
            508
            26)
          object BtnFotoNuevo: TSpeedButton
            Left = 1
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akLeft, akTop, akBottom]
            Caption = 'Nuevo'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              33333333FF33333333FF333993333333300033377F3333333777333993333333
              300033F77FFF3333377739999993333333333777777F3333333F399999933333
              33003777777333333377333993333333330033377F3333333377333993333333
              3333333773333333333F333333333333330033333333F33333773333333C3333
              330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
              333333333337733333FF3333333C333330003333333733333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = BtnFotoNuevoClick
          end
          object BtnFotoModif: TSpeedButton
            Left = 102
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akLeft, akTop, akBottom]
            Caption = 'Modificar'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
              000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
              00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
              F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
              0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
              FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
              FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
              0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
              00333377737FFFFF773333303300000003333337337777777333}
            NumGlyphs = 2
            OnClick = BtnFotoModifClick
          end
          object BtnFotoEliminar: TSpeedButton
            Left = 203
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akLeft, akTop, akBottom]
            Caption = 'Eliminar'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333FF33333333333330003333333333333777333333333333
              300033FFFFFF3333377739999993333333333777777F3333333F399999933333
              3300377777733333337733333333333333003333333333333377333333333333
              3333333333333333333F333333333333330033333F33333333773333C3333333
              330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
              333333377F33333333FF3333C333333330003333733333333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = BtnFotoEliminarClick
          end
          object BtnFotoAuto: TSpeedButton
            Left = 405
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akTop, akRight, akBottom]
            Caption = 'Autom'#225'tico'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
              3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
              700077337F3333373777887007333337007733F773F333337733700070333333
              077037773733333F7F37703707333300080737F373333377737F003333333307
              78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
              078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
              70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
              3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
              33337F73FF737773333307800077033333337337773373333333}
            NumGlyphs = 2
            OnClick = BtnFotoAutoClick
          end
        end
      end
      object gbPapel: TGroupBox
        Left = 23
        Top = 3
        Width = 368
        Height = 65
        Caption = 'Caracter'#237'sticas generales del papel'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        OnExit = gbPapelExit
        object Bevel3: TBevel
          Left = 152
          Top = 17
          Width = 32
          Height = 46
          Shape = bsFrame
        end
        object Label21: TLabel
          Left = 12
          Top = 44
          Width = 31
          Height = 13
          Caption = 'Ancho'
        end
        object Label23: TLabel
          Left = 157
          Top = 19
          Width = 23
          Height = 13
          Caption = 'Rev.'
        end
        object Label53: TLabel
          Left = 12
          Top = 20
          Width = 18
          Height = 13
          Caption = 'Alto'
        end
        object Label54: TLabel
          Left = 118
          Top = 20
          Width = 24
          Height = 13
          Caption = 'Pulg.'
        end
        object Label55: TLabel
          Left = 101
          Top = 44
          Width = 19
          Height = 13
          Caption = 'mm.'
        end
        object Label57: TLabel
          Left = 194
          Top = 44
          Width = 84
          Height = 13
          Caption = 'Impresos x Ancho'
        end
        object Label56: TLabel
          Left = 194
          Top = 20
          Width = 71
          Height = 13
          Caption = 'Impresos x Alto'
        end
        object BtnCalculaImpresosXHoja: TSpeedButton
          Left = 324
          Top = 17
          Width = 39
          Height = 42
          Caption = 'Calc'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
            73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
            0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
            0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
            0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
            0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
            0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
            0333337F777777737F333308888888880333337F333333337F33330888888888
            03333373FFFFFFFF733333700000000073333337777777773333}
          Layout = blGlyphBottom
          NumGlyphs = 2
          OnClick = BtnCalculaImpresosXHojaClick
        end
        object eFab_Ancho: TDBEdit
          Left = 49
          Top = 41
          Width = 43
          Height = 19
          Hint = 'Ancho del papel que se va a usar'
          Ctl3D = False
          DataField = 'FAB_ANCHO'
          DataSource = dsPresupuestos
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnExit = eFab_AnchoExit
        end
        object cbFab_Alto: TDBComboBox
          Left = 49
          Top = 16
          Width = 64
          Height = 21
          Hint = 'Alto del papel a usar'
          Style = csDropDownList
          Ctl3D = False
          DataField = 'FAB_ALTO'
          DataSource = dsPresupuestos
          DropDownCount = 16
          ItemHeight = 13
          Items.Strings = (
            '2'
            '3'
            '3 1/3'
            '4'
            '5,5'
            '6'
            '7 1/3'
            '8'
            '8,5'
            '10'
            '11'
            '12'
            '17'
            '20'
            '22'
            '24')
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnExit = cbFab_AltoExit
        end
        object eFab_Revoluciones: TDBEdit
          Left = 156
          Top = 40
          Width = 24
          Height = 19
          TabStop = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'FAB_REVOLUCIONES'
          DataSource = dsPresupuestos
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 2
          OnEnter = eNumeroEnter
        end
        object eImp_x_Ancho: TDBEdit
          Left = 280
          Top = 41
          Width = 43
          Height = 19
          Hint = 'Impresos que caben en una hoja en horizontal'
          Ctl3D = False
          DataField = 'IMPRESOS_X_ANCHO'
          DataSource = dsPresupuestos
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object eImp_x_Alto: TDBEdit
          Left = 280
          Top = 17
          Width = 43
          Height = 19
          Hint = 'Impresos que caben en una hoja por alto'
          Ctl3D = False
          DataField = 'IMPRESOS_X_ALTO'
          DataSource = dsPresupuestos
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
      end
      object gbImpreso: TGroupBox
        Left = 415
        Top = 3
        Width = 289
        Height = 65
        Caption = ' Tama'#241'o Final del Impreso '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnExit = gbPapelExit
        object Label51: TLabel
          Left = 16
          Top = 43
          Width = 31
          Height = 13
          Caption = 'Ancho'
        end
        object Label52: TLabel
          Left = 16
          Top = 20
          Width = 18
          Height = 13
          Caption = 'Alto'
        end
        object Label20: TLabel
          Left = 186
          Top = 34
          Width = 44
          Height = 13
          Caption = 'Tantos:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object BtnCalcImpreso: TSpeedButton
          Left = 140
          Top = 18
          Width = 40
          Height = 40
          Hint = 'Calcular correspondencias Milimetros y Pulgadas'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
            73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
            0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
            0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
            0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
            0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
            0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
            0333337F777777737F333308888888880333337F333333337F33330888888888
            03333373FFFFFFFF733333700000000073333337777777773333}
          Layout = blGlyphRight
          NumGlyphs = 2
          Spacing = 15
          OnClick = BtnCalcImpresoClick
        end
        object Label18: TLabel
          Left = 110
          Top = 43
          Width = 16
          Height = 13
          Caption = 'mm'
        end
        object Label22: TLabel
          Left = 110
          Top = 20
          Width = 16
          Height = 13
          Caption = 'mm'
        end
        object eTantos: TEdit
          Left = 227
          Top = 31
          Width = 24
          Height = 19
          Hint = 'Tantos del trabajo'
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          MaxLength = 1
          ParentCtl3D = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          Text = '0'
          OnChange = eTantosChange
          OnKeyPress = eTantosKeyPress
        end
        object udTantos: TUpDown
          Left = 251
          Top = 31
          Width = 24
          Height = 19
          Associate = eTantos
          TabOrder = 3
          OnClick = udTantosClick
        end
        object eImp_Ancho: TDBEdit
          Left = 56
          Top = 40
          Width = 49
          Height = 19
          Ctl3D = False
          DataField = 'IMPRESO_ANCHO'
          DataSource = dsPresupuestos
          ParentCtl3D = False
          TabOrder = 1
        end
        object eImp_Alto: TDBEdit
          Left = 56
          Top = 17
          Width = 49
          Height = 19
          Ctl3D = False
          DataField = 'IMPRESO_ALTO'
          DataSource = dsPresupuestos
          ParentCtl3D = False
          TabOrder = 0
        end
      end
    end
    object tsAcabado: TTabSheet
      Caption = 'Acabado'
      ImageIndex = 2
      OnHide = tsAcabadoHide
      OnShow = tsAcabadoShow
      DesignSize = (
        739
        518)
      object gbCarbo_Extracto: TGroupBox
        Left = 64
        Top = 78
        Width = 573
        Height = 44
        Caption = 'Acabado en Juegos / Carbo Extrato '
        TabOrder = 4
        object Label30: TLabel
          Left = 390
          Top = 21
          Width = 108
          Height = 13
          Caption = 'Cantidad por Paquetes'
        end
        object Label31: TLabel
          Left = 160
          Top = 21
          Width = 43
          Height = 13
          Caption = 'Acabado'
        end
        object Label32: TLabel
          Left = 20
          Top = 21
          Width = 52
          Height = 13
          Caption = 'Juegos de '
        end
        object eCarbo_Cantidad: TDBEdit
          Left = 502
          Top = 18
          Width = 50
          Height = 19
          Hint = 'Cantidad de unidades/Juegos; Dejar a 0 para calculo autom'#225'tico'
          Ctl3D = False
          DataField = 'JUEGOS_X_PAQ'
          DataSource = md.dsPresup_talonarios_juegos
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnEnter = eNumeroEnter
        end
        object eCarbo_Juegos: TDBEdit
          Left = 73
          Top = 18
          Width = 50
          Height = 19
          Hint = 'Unidades por juegos'
          Ctl3D = False
          DataField = 'JUEGOS_DE'
          DataSource = md.dsPresup_talonarios_juegos
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnEnter = eNumeroEnter
        end
        object eAcabado: TDBComboBox
          Left = 210
          Top = 17
          Width = 145
          Height = 21
          Ctl3D = False
          DataField = 'ACABADO'
          DataSource = md.dsPresup_talonarios_juegos
          ItemHeight = 13
          Items.Strings = (
            'TALONARIO BASE'
            'TALONARIO SOLAPA')
          ParentCtl3D = False
          TabOrder = 2
        end
      end
      object gbNumeracion: TGroupBox
        Left = 64
        Top = 183
        Width = 573
        Height = 64
        Caption = ' Numeraci'#243'n '
        TabOrder = 6
        object Label34: TLabel
          Left = 16
          Top = 25
          Width = 58
          Height = 13
          Caption = 'Numerar en:'
        end
        object Label35: TLabel
          Left = 187
          Top = 25
          Width = 24
          Height = 13
          Caption = 'Color'
        end
        object Label36: TLabel
          Left = 313
          Top = 14
          Width = 69
          Height = 13
          Caption = 'Primer N'#250'mero'
        end
        object Label37: TLabel
          Left = 486
          Top = 14
          Width = 42
          Height = 13
          Caption = 'D'#237'gito C.'
        end
        object Label2: TLabel
          Left = 313
          Top = 38
          Width = 69
          Height = 13
          Caption = #218'ltimo N'#250'mero'
        end
        object Label11: TLabel
          Left = 486
          Top = 38
          Width = 42
          Height = 13
          Caption = 'D'#237'gito C.'
        end
        object eNum_En: TDBEdit
          Left = 80
          Top = 21
          Width = 87
          Height = 19
          Hint = 'Indicar en que m'#225'quina o donde hay que numerar'
          Ctl3D = False
          DataField = 'NUMERAR_EN'
          DataSource = md.dsPresup_numeracion
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnEnter = eNumeroEnter
        end
        object eNum_Ini: TDBEdit
          Left = 393
          Top = 10
          Width = 75
          Height = 19
          Hint = 'Primer n'#250'mero de la numeraci'#243'n'
          Ctl3D = False
          DataField = 'NUM_INI'
          DataSource = md.dsPresup_numeracion
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnEnter = eNumeroEnter
        end
        object eNum_Ini_DC: TDBEdit
          Left = 534
          Top = 10
          Width = 25
          Height = 19
          Hint = 'Digito de Control del primer n'#250'mero (si tiene)'
          Ctl3D = False
          DataField = 'NUM_INI_DC'
          DataSource = md.dsPresup_numeracion
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object eNum_Color: TDBComboBox
          Left = 219
          Top = 21
          Width = 69
          Height = 21
          Hint = 'Color a usar para numerar'
          Style = csDropDownList
          BevelInner = bvNone
          BevelOuter = bvNone
          Ctl3D = False
          DataField = 'COLOR'
          DataSource = md.dsPresup_numeracion
          ItemHeight = 13
          Items.Strings = (
            'Rojo'
            'Negro')
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object eNum_Fin: TDBEdit
          Left = 393
          Top = 34
          Width = 75
          Height = 19
          Hint = #218'ltimo n'#250'mero a numerar'
          Ctl3D = False
          DataField = 'NUM_FIN'
          DataSource = md.dsPresup_numeracion
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnEnter = eNumeroEnter
        end
        object eNum_Fin_DC: TDBEdit
          Left = 534
          Top = 34
          Width = 25
          Height = 19
          Hint = 'D'#237'gito de control del '#250'ltimo n'#250'mero (si tiene)'
          Ctl3D = False
          DataField = 'NUM_FIN_DC'
          DataSource = md.dsPresup_numeracion
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
        end
      end
      object gbTalonarios: TGroupBox
        Left = 64
        Top = 130
        Width = 573
        Height = 44
        Caption = 'Acabado en talonarios'
        TabOrder = 5
        object Label39: TLabel
          Left = 16
          Top = 21
          Width = 70
          Height = 13
          Caption = 'Encuadernado'
        end
        object eTal_Encuadernado: TDBComboBox
          Left = 92
          Top = 17
          Width = 69
          Height = 21
          Ctl3D = False
          DataField = 'ENCUADERNADO'
          DataSource = md.dsPresup_talonarios_acabado
          ItemHeight = 13
          Items.Strings = (
            'Arriba'
            'Abajo'
            'Izquierda'
            'Derecha')
          ParentCtl3D = False
          TabOrder = 0
        end
        object cbTal_DobleTalon: TDBCheckBox
          Left = 195
          Top = 19
          Width = 117
          Height = 17
          Caption = 'Talonario Doble'
          Ctl3D = False
          DataField = 'DOBLE_TALON'
          DataSource = md.dsPresup_talonarios_acabado
          ParentCtl3D = False
          TabOrder = 1
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
        end
        object cbTal_MantCeja: TDBCheckBox
          Left = 335
          Top = 19
          Width = 117
          Height = 17
          Caption = 'Mantener Ceja'
          Ctl3D = False
          DataField = 'MANTENER_ARRASTRES'
          DataSource = md.dsPresup_talonarios_acabado
          ParentCtl3D = False
          TabOrder = 2
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
        end
        object cbTal_HiloCant: TDBCheckBox
          Left = 463
          Top = 19
          Width = 93
          Height = 17
          Caption = 'Hilo Cant.'
          Ctl3D = False
          DataField = 'HILO_CANT'
          DataSource = md.dsPresup_talonarios_acabado
          ParentCtl3D = False
          TabOrder = 3
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
        end
      end
      object gbPresup_Item_Extra: TGroupBox
        Left = 118
        Top = 333
        Width = 520
        Height = 167
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = 
          ' Elemetos extra directos de proveedor o sin valoraci'#243'n en la tar' +
          'ifa. Incluir Cantidad Total.'
        TabOrder = 8
        object Grid: TXDBGrid
          Left = 2
          Top = 41
          Width = 516
          Height = 124
          Align = alClient
          DataSource = dsPresup_Item_Extra
          FixedStyle = fsNice
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -11
          HeaderFont.Name = 'MS Sans Serif'
          HeaderFont.Style = []
          ScrollBars = ssNone
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              CheckBox = True
              Expanded = False
              FieldName = 'ES_TIEMPO'
              Title.Caption = 'Tie'
              Visible = True
              Width = 20
            end
            item
              Expanded = False
              FieldName = 'CONCEPTO'
              Title.Caption = 'Concepto'
              Visible = True
              Width = 213
            end
            item
              Expanded = False
              FieldName = 'CANTIDAD'
              Title.Caption = 'Cantidad'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PRECIO'
              Title.Caption = 'Precio'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TIPO_PRECIO'
              ListOptions = [loAutoDropDown, loSelectNextValue]
              PickOptions = [poDropDownList, poSelectPickText, poStoreItemIndex, poAcceptPickList]
              PickText.Strings = (
                'Unitario'
                'Millar')
              Title.Caption = #8364' por'
              Visible = True
              Width = 45
            end>
        end
        object pBotones: TPanel
          Left = 2
          Top = 15
          Width = 516
          Height = 26
          Align = alTop
          TabOrder = 0
          DesignSize = (
            516
            26)
          object BtnNuevo: TSpeedButton
            Left = 1
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akLeft, akTop, akBottom]
            Caption = 'Nuevo'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              33333333FF33333333FF333993333333300033377F3333333777333993333333
              300033F77FFF3333377739999993333333333777777F3333333F399999933333
              33003777777333333377333993333333330033377F3333333377333993333333
              3333333773333333333F333333333333330033333333F33333773333333C3333
              330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
              333333333337733333FF3333333C333330003333333733333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = BtnNuevoClick
          end
          object BtnModificar: TSpeedButton
            Left = 102
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akLeft, akTop, akBottom]
            Caption = 'Modificar'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
              000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
              00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
              F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
              0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
              FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
              FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
              0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
              00333377737FFFFF773333303300000003333337337777777333}
            NumGlyphs = 2
            OnClick = BtnModificarClick
          end
          object BtnEliminar: TSpeedButton
            Left = 203
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akLeft, akTop, akBottom]
            Caption = 'Eliminar'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333333FF33333333333330003333333333333777333333333333
              300033FFFFFF3333377739999993333333333777777F3333333F399999933333
              3300377777733333337733333333333333003333333333333377333333333333
              3333333333333333333F333333333333330033333F33333333773333C3333333
              330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
              993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
              333333377F33333333FF3333C333333330003333733333333777333333333333
              3000333333333333377733333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = BtnEliminarClick
          end
          object BtnManipulado: TSpeedButton
            Left = 413
            Top = 1
            Width = 100
            Height = 24
            Anchors = [akTop, akRight, akBottom]
            Caption = 'Manipulado'
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333000003333333333F77777FFF333333009999900
              3333333777777777FF33330998FFF899033333777333F3777FF33099FFFCFFF9
              903337773337333777F3309FFFFFFFCF9033377333F3337377FF098FF0FFFFFF
              890377F3373F3333377F09FFFF0FFFFFF90377F3F373FFFFF77F09FCFFF90000
              F90377F733377777377F09FFFFFFFFFFF90377F333333333377F098FFFFFFFFF
              890377FF3F33333F3773309FCFFFFFCF9033377F7333F37377F33099FFFCFFF9
              90333777FF37F3377733330998FCF899033333777FF7FF777333333009999900
              3333333777777777333333333000003333333333377777333333}
            NumGlyphs = 2
            OnClick = BtnManipuladoClick
          end
        end
      end
      object cbFab_Doble_Ancho: TDBCheckBox
        Left = 322
        Top = 56
        Width = 97
        Height = 17
        Caption = 'Doble Ancho'
        Ctl3D = False
        DataField = 'FAB_DOBLE_ANCHO'
        DataSource = dsPresupuestos
        ParentCtl3D = False
        TabOrder = 2
        ValueChecked = 'Si'
        ValueUnchecked = 'No'
      end
      object pMaquina: TPanel
        Left = 74
        Top = 8
        Width = 217
        Height = 30
        BevelOuter = bvNone
        TabOrder = 0
        object Label41: TLabel
          Left = 5
          Top = 8
          Width = 41
          Height = 13
          Caption = 'M'#225'quina'
        end
        object cbMaquina: TRxDBLookupCombo
          Left = 60
          Top = 4
          Width = 150
          Height = 21
          DropDownCount = 8
          Ctl3D = False
          DataField = 'ID_MAQUINA'
          DataSource = dsPresupuestos
          LookupField = 'ID_MAQUINA'
          LookupDisplay = 'DESCRIPCION'
          LookupSource = md.dsMaquinas
          ParentCtl3D = False
          TabOrder = 0
        end
      end
      object pColectora: TPanel
        Left = 74
        Top = 48
        Width = 217
        Height = 30
        BevelOuter = bvNone
        TabOrder = 1
        object Label12: TLabel
          Left = 5
          Top = 7
          Width = 45
          Height = 13
          Caption = 'Colectora'
        end
        object cbColectora: TRxDBLookupCombo
          Left = 60
          Top = 3
          Width = 150
          Height = 21
          DropDownCount = 8
          Ctl3D = False
          DataField = 'ID_COLECTORA'
          DataSource = dsPresupuestos
          LookupField = 'ID_MAQUINA'
          LookupDisplay = 'DESCRIPCION'
          LookupSource = md.dsColectorras
          ParentCtl3D = False
          TabOrder = 0
        end
      end
      object gbCaja: TGroupBox
        Left = 64
        Top = 255
        Width = 573
        Height = 42
        Caption = 
          'CAJAS. Selecciona el tipo de cajas a usar y unidades que caben e' +
          'n cada caja'
        TabOrder = 7
        object Label49: TLabel
          Left = 33
          Top = 20
          Width = 26
          Height = 13
          Caption = 'Cajas'
        end
        object Label50: TLabel
          Left = 358
          Top = 20
          Width = 139
          Height = 13
          Caption = 'Uds que caben en una Caja: '
        end
        object cbCaja: TDBLookupComboBox
          Left = 81
          Top = 16
          Width = 205
          Height = 19
          Ctl3D = False
          DataField = 'ID_CAJA'
          DataSource = dsPresupuestos
          KeyField = 'IDARTICULO'
          ListField = 'DESCRIPCION'
          ListSource = dsCajas
          ParentCtl3D = False
          TabOrder = 0
        end
        object eUds_x_Caja: TDBEdit
          Left = 506
          Top = 16
          Width = 53
          Height = 19
          Ctl3D = False
          DataField = 'CANTIDAD_X_CAJA'
          DataSource = md.dsPresupuestos
          ParentCtl3D = False
          TabOrder = 1
        end
      end
      object cbTiraAdhesiva: TDBCheckBox
        Left = 454
        Top = 56
        Width = 97
        Height = 17
        Caption = 'Tira Adhesiva'
        Ctl3D = False
        DataField = 'TIRA_ADHESIVA'
        DataSource = dsPresupuestos
        ParentCtl3D = False
        TabOrder = 3
        ValueChecked = 'Si'
        ValueUnchecked = 'No'
      end
    end
    object tsCalculos: TTabSheet
      Caption = 'Calculos'
      ImageIndex = 3
      OnShow = tsCalculosShow
      object Splitter1: TSplitter
        Left = 0
        Top = 150
        Width = 739
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 739
        Height = 150
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object gbCantidades: TGroupBox
          Left = 0
          Top = 0
          Width = 739
          Height = 150
          Align = alClient
          Caption = '  Cantidades a presupuestar  '
          TabOrder = 0
          object GridCantidades: TXDBGrid
            Left = 2
            Top = 49
            Width = 735
            Height = 99
            Align = alClient
            DataSource = dsPresup_Cantidades
            HeaderFont.Charset = DEFAULT_CHARSET
            HeaderFont.Color = clWindowText
            HeaderFont.Height = -11
            HeaderFont.Name = 'MS Sans Serif'
            HeaderFont.Style = []
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleButtons, dgTitleHeaders, dgTitleWidthOff, dgMarkerAutoAlign, dgRowResize, dgRowScroll, dgMarkerAutoToggle, dgExtendedSelect, dgInternalSelect]
            PopupMenu = PopupMenuCantidades
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = GridCantidadesCellClick
            OnColGetText = GridCantidadesColGetText
            OnPaintColumnCell = GridCantidadesPaintColumnCell
            Columns = <
              item
                CheckBox = True
                CheckBoxValues = '1;0'
                Expanded = False
                FieldName = 'IMPRIMIR'
                Title.Caption = 'Imp'
                Visible = True
                Width = 20
              end
              item
                Expanded = False
                FieldName = 'CANTIDAD'
                Title.Caption = 'Cantidad'
                Visible = True
                Width = 70
              end
              item
                Expanded = False
                FieldName = 'TARIFA_PAPEL'
                Title.Caption = 'Tarifa Papel'
                Visible = True
                Width = 65
              end
              item
                Expanded = False
                FieldName = 'PORCENTAJE'
                Title.Caption = 'Porc.'
                Visible = True
                Width = 50
              end
              item
                Expanded = False
                FieldName = 'PRECIO_BAJO_TARIFA'
                Title.Caption = 'Bajo Tarifa'
                Visible = True
                Width = 58
              end
              item
                Expanded = False
                FieldName = 'DESPERDICIO'
                Title.Caption = 'Desper.'
                Visible = True
                Width = 40
              end
              item
                Expanded = False
                FieldName = 'PRECIO_BAJO_DESPERDICIO'
                Title.Caption = 'Bajo Desp.'
                Visible = True
                Width = 58
              end
              item
                Expanded = False
                FieldName = 'COMISION'
                Title.Caption = 'Comision'
                Visible = True
                Width = 45
              end
              item
                Expanded = False
                FieldName = 'PRECIO_MILLAR'
                Title.Caption = #8364' / Millar'
                Visible = True
                Width = 50
              end
              item
                Expanded = False
                FieldName = 'PRECIO_TOTAL'
                Title.Caption = 'Importe Total'
                Visible = True
                Width = 71
              end
              item
                Expanded = False
                FieldName = 'ID_USUARIO'
                Title.Caption = 'Usuario'
                Visible = True
                Width = 44
              end
              item
                Expanded = False
                FieldName = 'FECHA'
                Title.Caption = 'Fecha'
                Visible = True
                Width = 110
              end>
          end
          object Panel5: TPanel
            Left = 2
            Top = 15
            Width = 735
            Height = 34
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
            object BtnNuevaCantidad: TSpeedButton
              Left = 0
              Top = 0
              Width = 90
              Height = 33
              Caption = 'Nueva Cant.'
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000130B0000130B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                33333333FF33333333FF333993333333300033377F3333333777333993333333
                300033F77FFF3333377739999993333333333777777F3333333F399999933333
                33003777777333333377333993333333330033377F3333333377333993333333
                3333333773333333333F333333333333330033333333F33333773333333C3333
                330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
                993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
                333333333337733333FF3333333C333330003333333733333777333333333333
                3000333333333333377733333333333333333333333333333333}
              NumGlyphs = 2
              OnClick = BtnNuevaCantidadClick
            end
            object BtnEliminarCantidad: TSpeedButton
              Left = 90
              Top = 0
              Width = 90
              Height = 33
              Caption = 'Eliminar Cant'
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000130B0000130B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                333333333333333333FF33333333333330003333333333333777333333333333
                300033FFFFFF3333377739999993333333333777777F3333333F399999933333
                3300377777733333337733333333333333003333333333333377333333333333
                3333333333333333333F333333333333330033333F33333333773333C3333333
                330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
                993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
                333333377F33333333FF3333C333333330003333733333333777333333333333
                3000333333333333377733333333333333333333333333333333}
              NumGlyphs = 2
              OnClick = BtnEliminarCantidadClick
            end
            object BtnAceptarCant: TSpeedButton
              Left = 190
              Top = 0
              Width = 86
              Height = 33
              Caption = 'ACEPTAR'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
                555555555555555555555555555555555555555555FF55555555555559055555
                55555555577FF5555555555599905555555555557777F5555555555599905555
                555555557777FF5555555559999905555555555777777F555555559999990555
                5555557777777FF5555557990599905555555777757777F55555790555599055
                55557775555777FF5555555555599905555555555557777F5555555555559905
                555555555555777FF5555555555559905555555555555777FF55555555555579
                05555555555555777FF5555555555557905555555555555777FF555555555555
                5990555555555555577755555555555555555555555555555555}
              NumGlyphs = 2
              ParentFont = False
              OnClick = BtnAceptarCantClick
            end
            object Bevel2: TBevel
              Left = 186
              Top = 0
              Width = 10
              Height = 32
              Shape = bsLeftLine
              Style = bsRaised
            end
            object BtnImpCalculos: TSpeedButton
              Left = 500
              Top = 0
              Width = 90
              Height = 33
              Caption = 'Imp. Calculos'
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000130B0000130B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
                00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
                8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
                8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
                8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
                03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
                03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
                33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
                33333337FFFF7733333333300000033333333337777773333333}
              NumGlyphs = 2
              OnClick = BtnImpCalculosClick
            end
            object BtnImpPresup: TSpeedButton
              Left = 590
              Top = 0
              Width = 90
              Height = 33
              Caption = 'Imp. Presup.'
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000130B0000130B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
                00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
                8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
                8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
                8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
                03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
                03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
                33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
                33333337FFFF7733333333300000033333333337777773333333}
              NumGlyphs = 2
              OnClick = BtnImpPresupClick
            end
          end
        end
      end
      object Panel4: TPanel
        Left = 0
        Top = 153
        Width = 739
        Height = 365
        Align = alClient
        TabOrder = 1
        object Label42: TLabel
          Left = 1
          Top = 1
          Width = 40
          Height = 13
          Align = alTop
          Alignment = taCenter
          Caption = 'Calculos'
          Color = clInfoBk
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clInfoText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object GridCalculos: TXDBGrid
          Left = 1
          Top = 14
          Width = 737
          Height = 350
          Align = alClient
          DataSource = dsPresup_Calculos
          FixedStyle = fsNice
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -11
          HeaderFont.Name = 'MS Sans Serif'
          HeaderFont.Style = []
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnPaintColumnCell = GridCalculosPaintColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'CONCEPTO'
              Title.Caption = 'Concepto'
              Visible = True
              Width = 436
            end
            item
              Expanded = False
              FieldName = 'CANTIDAD'
              Title.Caption = 'Cantidad'
              Visible = True
              Width = 96
            end
            item
              Expanded = False
              FieldName = 'PRECIO'
              Title.Caption = 'Precio'
              Visible = True
              Width = 67
            end
            item
              Expanded = False
              FieldName = 'TOTAL'
              Title.Caption = 'Total'
              Visible = True
              Width = 89
            end>
        end
      end
    end
    object tsFabricacion: TTabSheet
      Caption = 'Fabricaci'#243'n'
      ImageIndex = 4
      OnShow = tsFabricacionShow
      DesignSize = (
        739
        518)
      object BtnCancelarFabricacion: TSpeedButton
        Left = 198
        Top = 16
        Width = 161
        Height = 22
        Caption = 'Cancelar esta fabricaci'#243'n'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
          993337777F777F3377F3393999707333993337F77737333337FF993399933333
          399377F3777FF333377F993339903333399377F33737FF33377F993333707333
          399377F333377FF3377F993333101933399377F333777FFF377F993333000993
          399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
          99333773FF777F777733339993707339933333773FF7FFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
        OnClick = BtnCancelarFabricacionClick
      end
      object Label14: TLabel
        Left = 39
        Top = 21
        Width = 48
        Height = 13
        Caption = 'Cantidad: '
      end
      object Label15: TLabel
        Left = 49
        Top = 51
        Width = 38
        Height = 13
        Caption = 'Modelo:'
      end
      object Label64: TLabel
        Left = 466
        Top = 84
        Width = 74
        Height = 13
        Caption = 'Fecha Prevista:'
      end
      object Label65: TLabel
        Left = 229
        Top = 83
        Width = 82
        Height = 13
        Caption = 'Fecha Solicitada:'
      end
      object Label8: TLabel
        Left = 18
        Top = 82
        Width = 69
        Height = 13
        Caption = 'Fecha Pedido:'
      end
      object Label10: TLabel
        Left = 463
        Top = 21
        Width = 77
        Height = 13
        Caption = 'N'#250'm. Pedido:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clHotLight
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label66: TLabel
        Left = 455
        Top = 51
        Width = 85
        Height = 13
        Caption = 'N'#186' pedido Cliente:'
      end
      object gbLaboratorio: TGroupBox
        Left = 16
        Top = 122
        Width = 289
        Height = 110
        Caption = 'Laboratorio'
        TabOrder = 7
        object Label7: TLabel
          Left = 16
          Top = 43
          Width = 55
          Height = 13
          Caption = 'Referencia '
        end
        object eFechaLaboratorio: TDBText
          Left = 120
          Top = 20
          Width = 89
          Height = 13
          AutoSize = True
          DataField = 'LABORATORIO_FECHA'
          DataSource = dsPedidos
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clHotLight
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object cbLaboratorio: TDBCheckBox
          Left = 16
          Top = 20
          Width = 97
          Height = 17
          Caption = 'Laboratorio'
          DataField = 'LABORATORIO'
          DataSource = dsPedidos
          TabOrder = 0
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
          OnClick = cbLaboratorioClick
        end
        object eLab_Referencia: TDBEdit
          Left = 170
          Top = 40
          Width = 103
          Height = 19
          Ctl3D = False
          DataField = 'LAB_REFERENCIA'
          DataSource = dsPedidos
          ParentCtl3D = False
          TabOrder = 1
        end
        object cbLab_Destruir: TDBCheckBox
          Left = 12
          Top = 66
          Width = 109
          Height = 17
          Caption = 'Destruir Fotolitos'
          DataField = 'LAB_DESTRUIR_FOTOLITOS'
          DataSource = dsPedidos
          TabOrder = 2
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
        end
        object dbLab_Directo: TDBCheckBox
          Left = -60
          Top = -14
          Width = 141
          Height = 17
          Caption = 'Directo a Planchas'
          DataField = 'LAB_DIRECTO_PLANCHAS'
          DataSource = dsPedidos
          TabOrder = 3
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
        end
        object eDestruirFotolitos: TDBEdit
          Left = 120
          Top = 65
          Width = 153
          Height = 19
          Ctl3D = False
          DataField = 'LAB_DESTRUIR_FOTOLITOS_COM'
          DataSource = dsPedidos
          ParentCtl3D = False
          TabOrder = 4
        end
        object DBCheckBox1: TDBCheckBox
          Left = 12
          Top = 89
          Width = 109
          Height = 17
          Caption = 'Directo a Planchas'
          DataField = 'LAB_DIRECTO_PLANCHAS'
          DataSource = dsPedidos
          TabOrder = 5
          ValueChecked = 'Si'
          ValueUnchecked = 'No'
        end
        object DBComboBox1: TDBComboBox
          Left = 77
          Top = 40
          Width = 85
          Height = 21
          Style = csDropDownList
          DataField = 'LAB_TIPO_REFERENCIA'
          DataSource = dsPedidos
          ItemHeight = 13
          Items.Strings = (
            'ANTERIOR'
            'NUEVA')
          TabOrder = 6
        end
      end
      object gbPapelesKilos: TGroupBox
        Left = 16
        Top = 252
        Width = 704
        Height = 130
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = 'Papeles y Kilos'
        TabOrder = 9
        object GridPapeles_Kilos: TXDBGrid
          Left = 2
          Top = 15
          Width = 700
          Height = 113
          Align = alClient
          DataSource = dsPapeles_Kilos
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -11
          HeaderFont.Name = 'MS Sans Serif'
          HeaderFont.Style = []
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleButtons, dgTitleHeaders, dgTitleWidthOff, dgMarkerAutoAlign, dgRowResize, dgRowScroll, dgAllowInsertOff, dgMarkerAutoToggle, dgExtendedSelect, dgInternalSelect]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Color = clInfoBk
              Expanded = False
              FieldName = 'TIPO_PAPEL'
              Title.Caption = 'Papel'
              Visible = True
              Width = 478
            end
            item
              Color = clInfoBk
              Expanded = False
              FieldName = 'KILOS_PREVISTOS'
              ReadOnly = True
              Title.Caption = 'Kg. Previsto'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'KILOS_USADOS'
              Title.Caption = 'Kg. Usados'
              Visible = True
            end>
        end
      end
      object gtTiempos: TGroupBox
        Left = 331
        Top = 122
        Width = 204
        Height = 110
        Caption = ' Fabricaci'#243'n -  Tiempos '
        TabOrder = 8
        object Label26: TLabel
          Left = 46
          Top = 24
          Width = 41
          Height = 13
          Caption = 'Maquina'
        end
        object Label27: TLabel
          Left = 42
          Top = 54
          Width = 45
          Height = 13
          Caption = 'Colectora'
        end
        object Label28: TLabel
          Left = 32
          Top = 84
          Width = 55
          Height = 13
          Caption = 'Manipulado'
        end
        object eTiempo_Maquina: TDBEdit
          Left = 94
          Top = 20
          Width = 77
          Height = 19
          Ctl3D = False
          DataField = 'TIEMPO_MAQUINA'
          DataSource = dsPedidos
          ParentCtl3D = False
          TabOrder = 0
        end
        object eTiempo_Colectora: TDBEdit
          Left = 94
          Top = 50
          Width = 77
          Height = 19
          Ctl3D = False
          DataField = 'TIEMPO_COLECTORA'
          DataSource = dsPedidos
          ParentCtl3D = False
          TabOrder = 1
        end
        object eFab_Tiempo_Manipulado: TDBEdit
          Left = 94
          Top = 80
          Width = 77
          Height = 19
          Ctl3D = False
          DataField = 'TIEMPO_MANIPULADO'
          DataSource = dsPedidos
          ParentCtl3D = False
          TabOrder = 2
        end
      end
      object eFabModelo: TDBEdit
        Left = 92
        Top = 48
        Width = 325
        Height = 19
        Ctl3D = False
        DataField = 'MODELO'
        DataSource = dsPedidos
        ParentCtl3D = False
        TabOrder = 2
      end
      object eCantFabricacion: TDBEdit
        Left = 92
        Top = 18
        Width = 100
        Height = 19
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'CANTIDAD'
        DataSource = dsPedidos
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clHighlight
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object eFechaPrevista: TDBDateEdit
        Left = 545
        Top = 81
        Width = 100
        Height = 19
        DataField = 'FECHA_PREVISTA'
        DataSource = dsPedidos
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 6
      end
      object eFechaSolicitada: TDBDateEdit
        Left = 315
        Top = 80
        Width = 100
        Height = 19
        DataField = 'FECHA_SOLICITADA'
        DataSource = dsPedidos
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 5
      end
      object eFecha_Pedido: TDBEdit
        Left = 92
        Top = 79
        Width = 110
        Height = 19
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'FECHA_PEDIDO'
        DataSource = dsPedidos
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clHighlight
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object eNumPedido: TDBEdit
        Left = 545
        Top = 18
        Width = 100
        Height = 19
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'ID_PEDIDO'
        DataSource = dsPedidos
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clHighlight
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object gbObservaciones: TGroupBox
        Left = 16
        Top = 390
        Width = 340
        Height = 110
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = ' Observaciones sobre el trabajo para su fabricaci'#243'n '
        TabOrder = 10
        object DBMemo1: TDBMemo
          Left = 2
          Top = 15
          Width = 336
          Height = 93
          Align = alClient
          DataField = 'OBSERVACIONES'
          DataSource = dsPedidos
          TabOrder = 0
        end
      end
      object eNum_Ped_Cli: TDBEdit
        Left = 545
        Top = 48
        Width = 100
        Height = 19
        Ctl3D = False
        DataField = 'NUM_PEDIDO_CLI'
        DataSource = dsPedidos
        ParentCtl3D = False
        TabOrder = 3
      end
      object gbDireccion: TGroupBox
        Left = 376
        Top = 382
        Width = 340
        Height = 110
        Caption = 'Direcci'#243'n de env'#237'o'
        TabOrder = 11
        object Label68: TLabel
          Left = 12
          Top = 42
          Width = 46
          Height = 13
          Caption = 'Cod. Pos:'
        end
        object Label69: TLabel
          Left = 152
          Top = 42
          Width = 47
          Height = 13
          Caption = 'Poblaci'#243'n'
        end
        object Label70: TLabel
          Left = 152
          Top = 66
          Width = 44
          Height = 13
          Caption = 'Provincia'
        end
        object Label71: TLabel
          Left = 12
          Top = 90
          Width = 45
          Height = 13
          Caption = 'Telefono:'
        end
        object Label72: TLabel
          Left = 152
          Top = 90
          Width = 43
          Height = 13
          Caption = 'Contacto'
        end
        object BtnNuevaDirEnvio: TSpeedButton
          Left = 301
          Top = 14
          Width = 23
          Height = 22
          Hint = 'Nueva Direcci'#243'n de Env'#237'o'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333FF33333333FF333993333333300033377F3333333777333993333333
            300033F77FFF3333377739999993333333333777777F3333333F399999933333
            33003777777333333377333993333333330033377F3333333377333993333333
            3333333773333333333F333333333333330033333333F33333773333333C3333
            330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
            993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
            333333333337733333FF3333333C333330003333333733333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = BtnNuevaDirEnvioClick
        end
        object eEnvioDesc: TDBLookupComboBox
          Left = 12
          Top = 14
          Width = 288
          Height = 21
          DataField = 'ID_CLIENTE_ENVIO'
          DataSource = dsPedidos
          KeyField = 'ID_ENVIO'
          ListField = 'DESCRIP'
          ListSource = dsDirs_Envio
          TabOrder = 0
        end
        object eEnvioCP: TDBEdit
          Left = 64
          Top = 38
          Width = 57
          Height = 21
          DataField = 'CODPOSTAL'
          DataSource = dsDirs_Envio
          TabOrder = 1
          OnKeyPress = eEnvioKeyPress
        end
        object eEnvioPob: TDBEdit
          Left = 204
          Top = 38
          Width = 121
          Height = 21
          DataField = 'POBLACION'
          DataSource = dsDirs_Envio
          TabOrder = 2
          OnKeyPress = eEnvioKeyPress
        end
        object eEnvioProv: TDBEdit
          Left = 204
          Top = 62
          Width = 121
          Height = 21
          DataField = 'PROVINCIA'
          DataSource = dsDirs_Envio
          TabOrder = 3
          OnKeyPress = eEnvioKeyPress
        end
        object eEnvioTel: TDBEdit
          Left = 64
          Top = 86
          Width = 70
          Height = 21
          DataField = 'TELEFONO'
          DataSource = dsDirs_Envio
          TabOrder = 4
          OnKeyPress = eEnvioKeyPress
        end
        object eEnvioCto: TDBEdit
          Left = 204
          Top = 86
          Width = 121
          Height = 21
          DataField = 'CONTACTO'
          DataSource = dsDirs_Envio
          TabOrder = 5
          OnKeyPress = eEnvioKeyPress
        end
      end
      object GroupBox1: TGroupBox
        Left = 540
        Top = 122
        Width = 105
        Height = 110
        Caption = 'Trabajo Hecho'
        TabOrder = 12
        object DBText2: TDBText
          Left = 4
          Top = 84
          Width = 101
          Height = 17
          Alignment = taCenter
          DataField = 'HECHO_FECHA'
          DataSource = dsPedidos
        end
        object BtnMarcharHecho: TSpeedButton
          Left = 16
          Top = 17
          Width = 73
          Height = 57
          Caption = 'Marcar'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            555555555555555555555555555555555555555555FF55555555555559055555
            55555555577FF5555555555599905555555555557777F5555555555599905555
            555555557777FF5555555559999905555555555777777F555555559999990555
            5555557777777FF5555557990599905555555777757777F55555790555599055
            55557775555777FF5555555555599905555555555557777F5555555555559905
            555555555555777FF5555555555559905555555555555777FF55555555555579
            05555555555555777FF5555555555557905555555555555777FF555555555555
            5990555555555555577755555555555555555555555555555555}
          Layout = blGlyphTop
          NumGlyphs = 2
          OnClick = BtnMarcharHechoClick
        end
      end
    end
  end
  object dsPresupuestos: TDataSource
    DataSet = md.TPresupuestos
    OnDataChange = dsPresupuestosDataChange
    Left = 388
    Top = 5
  end
  object TEstados: TZTable
    Connection = md.BBDD
    TableName = 'presup_estado'
    Left = 72
    Top = 24
  end
  object dsEstados: TDataSource
    DataSet = TEstados
    Left = 96
    Top = 24
  end
  object TCli_Envios: TZTable
    Connection = md.BBDD
    TableName = 'clientes_envios'
    MasterFields = 'ID_CLIENTE'
    MasterSource = dsPresupuestos
    LinkedFields = 'ID_CLIENTE'
    Left = 432
    Top = 65535
  end
  object dsCli_Envios: TDataSource
    DataSet = TCli_Envios
    Left = 432
    Top = 35
  end
  object dsCli_Ctos: TDataSource
    DataSet = qCli_Ctos
    Left = 468
    Top = 35
  end
  object dsPresup_tantos: TDataSource
    DataSet = md.TPresup_tantos
    OnDataChange = dsPresup_tantosDataChange
    Left = 289
    Top = 4
  end
  object dsPresup_tantos_colores: TDataSource
    DataSet = md.qPresup_tantos_colores
    Left = 304
    Top = 56
  end
  object dsCajas: TDataSource
    DataSet = qCajas
    Left = 536
    Top = 35
  end
  object tPresup_Calculos: TZTable
    Connection = md.BBDD
    TableName = 'presup_calculos'
    MasterFields = 'ID_PRESUP_CANTIDAD'
    MasterSource = dsPresup_Cantidades
    LinkedFields = 'ID_PRESUP_CANTIDAD'
    Left = 597
    Top = 65535
  end
  object dsPresup_Cantidades: TDataSource
    DataSet = qPresup_Cantidades
    Left = 568
    Top = 35
  end
  object dsPresup_Calculos: TDataSource
    DataSet = tPresup_Calculos
    Left = 600
    Top = 35
  end
  object tTarifas_items: TZTable
    Connection = md.BBDD
    TableName = 'tarifas_items'
    Left = 632
    Top = 65535
  end
  object dsCli_Ctos2: TDataSource
    DataSet = qCli_Ctos2
    Left = 502
    Top = 35
  end
  object qCli_Ctos2: TZQuery
    Connection = md.BBDD
    Params = <>
    Left = 502
    Top = 65535
  end
  object qCli_Ctos: TZQuery
    Connection = md.BBDD
    Params = <>
    Left = 468
    Top = 65535
  end
  object dsPapeles_Kilos: TDataSource
    DataSet = qPapeles_Kilos
    Left = 242
    Top = 4
  end
  object dsPresup_Item_Extra: TDataSource
    Left = 128
    Top = 40
  end
  object dsPresup_Fotocomposicion: TDataSource
    OnStateChange = dsPresup_FotocomposicionStateChange
    OnDataChange = dsPresup_FotocomposicionDataChange
    Left = 160
    Top = 40
  end
  object qPresup_Cantidades: TZQuery
    Connection = md.BBDD
    SQL.Strings = (
      'SELECT *'
      'FROM PRESUP_CANTIDADES'
      'WHERE ID_PRESUP = :ID_PRESUP'
      '-- WHERE ID_PRESUP = 41'
      'ORDER BY CANTIDAD, TARIFA_PAPEL, PORCENTAJE ')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ID_PRESUP'
        ParamType = ptUnknown
      end>
    Left = 569
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID_PRESUP'
        ParamType = ptUnknown
      end>
  end
  object qPapeles_Kilos: TZQuery
    Connection = md.BBDD
    SQL.Strings = (
      
        'SELECT DESCRIPCION_PAPEL( PK.ID_PAPEL) AS TIPO_PAPEL, PK.KILOS_P' +
        'REVISTOS, PK.KILOS_USADOS '
      'FROM PRESUP_KILOS_PAPEL PK '
      'WHERE PK.ID_PRESUP =:ID_PRESUP')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ID_PRESUP'
        ParamType = ptUnknown
      end>
    DataSource = md.dsPresupuestos
    Left = 200
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID_PRESUP'
        ParamType = ptUnknown
      end>
  end
  object dsClientes: TDataSource
    DataSet = md.TClientes
    OnStateChange = dsClientesStateChange
    Left = 200
    Top = 40
  end
  object qCajas: TZReadOnlyQuery
    Connection = md.BBDD
    SQL.Strings = (
      'SELECT IDARTICULO, DESCRIPCION'#10
      ''
      'FROM ALM_OTRASMATCOM'#10
      ''
      'WHERE IDFAMILIA = '#39'02'#39#10
      ''
      'ORDER BY DESCRIPCION'#10
      '')
    Params = <>
    Left = 536
  end
  object dsPedidos: TDataSource
    DataSet = md.tPedidos_Presup
    Left = 640
    Top = 44
  end
  object PopupMenuCantidades: TPopupMenu
    Left = 644
    Top = 184
    object Ajustarpreciopormillar1: TMenuItem
      Caption = 'Ajustar precio por millar'
      OnClick = Ajustarpreciopormillar1Click
    end
    object Ajustarimportetotal1: TMenuItem
      Caption = 'Ajustar importe total'
      OnClick = Ajustarimportetotal1Click
    end
  end
  object dsDirs_Envio: TDataSource
    DataSet = qDirs_Envio
    Left = 672
    Top = 48
  end
  object qDirs_Envio: TZQuery
    Connection = md.BBDD
    SQL.Strings = (
      
        'SELECT *, CONCAT_WS( '#39' - '#39', CAST( ID_ENVIO AS CHAR), DESCRIPCION' +
        ') DESCRIP'
      'FROM CLIENTES_ENVIOS'
      'WHERE ID_CLIENTE = 1899')
    Params = <>
    Left = 668
    Top = 4
  end
end
